home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / Stats.als < prev    next >
Encoding:
Text File  |  2000-02-13  |  10.2 KB  |  242 lines
  1. clones {
  2.   if ($1 ischan) set %tmp.clones $1
  3.   elseif ($chan ischan) set %tmp.clones $chan
  4.   else {
  5.     iecho Syntax: /clones [channel]
  6.     return
  7.   }  
  8.   if ($chan(%tmp.clones).ial != $true) {
  9.     iecho IAL for $hc(%tmp.clones) is not full, try again in a few seconds...
  10.     if ($chan(%tmp.clones).ial == $false) .who %tmp.clones
  11.   }
  12.   unset %foundclones
  13.   set %i.clones 0
  14.   :start
  15.   inc %i.clones
  16.   if ($ialchan(*,%tmp.clones,%i.clones)) {
  17.     set %tmp *!*@ $+ $ialchan(*,%tmp.clones,%i.clones).host
  18.     if ($ialchan(%tmp,%tmp.clones,2)) {
  19.       if ($findtok(%foundclones,$ialchan(*,%tmp.clones,%i).host,1,44)) goto start
  20.       set %foundclones $addtok(%foundclones,$ialchan(*,%tmp.clones,%i.clones).host,44)
  21.     }
  22.     goto start
  23.   }
  24.   if (%foundclones == $null) {
  25.     iecho No clones were found on $hc(%tmp.clones) $+ . ( $+ $sc($nick(%tmp.clones,0)) users)
  26.     return
  27.   }
  28.   window -a @Clones %cloc $tp(clone.pop) FixedSys 9
  29.   titlebar @Clones on %tmp.clones
  30.   write -c $tp(clone.pop)
  31.   write $tp(clone.pop) exit $chr(123) set % $+ cloc $ $+ swlc(@Clones) $vl window -c @Clones $chr(125)
  32.   write $tp(clone.pop) -
  33.   aline @Clones . $+ $str(-,50) $+ .
  34.   aline @Clones $vl Clone Information on $fix(27,$hc(%tmp.clones)) $vl
  35.   aline @Clones $vl $+ $str(-,50) $+ $vl
  36.   aline @Clones $vl $fix(11,Nick) $fix(37,Ident) $+ $vl
  37.   set %i.clones 0
  38.   :start2
  39.   inc %i.clones
  40.   if ($gettok(%foundclones,%i.clones,44)) {
  41.     aline @Clones $vl $+ $str(-,50) $+ $vl
  42.     aline @Clones $vl Host: $fix(42,$hc($gettok(%foundclones,%i.clones,44))) $vl
  43.     aline @Clones $fix(50,$vl) $vl
  44.     write $tp(clone.pop) $gettok(%foundclones,%i.clones,44)
  45.     set %k.clones *!*@ $+ $gettok(%foundclones,%i.clones,44)
  46.     set %j.clones 0
  47.     :start3
  48.     inc %j.clones
  49.     if ($ialchan(%k.clones,%tmp.clones,%j.clones)) {
  50.       aline @Clones $vl $fix(11,$clop($ialchan(%k.clones,%tmp.clones,%j.clones).nick,%tmp.clones)) $fix(10,$hc($ialchan(%k.clones,%tmp.clones,%j.clones).user)) $fix(25,) $vl
  51.       write $tp(clone.pop) . $+ $ialchan(%k.clones,%tmp.clones,%j.clones).nick
  52.       write $tp(clone.pop) ..who $chr(123) who $ialchan(%k.clones,%tmp.clones,%j.clones).nick $chr(125)
  53.       write $tp(clone.pop) ..ping $chr(123) ctcp $ialchan(%k.clones,%tmp.clones,%j.clones).nick ping $chr(125)
  54.       write $tp(clone.pop) ..whois $chr(123) whois $ialchan(%k.clones,%tmp.clones,%j.clones).nick $chr(125)
  55.       write $tp(clone.pop) ..finger $chr(123) finger $ialchan(%k.clones,%tmp.clones,%j.clones).nick $chr(125)
  56.       write $tp(clone.pop) ..version $chr(123) ctcp $ialchan(%k.clones,%tmp.clones,%j.clones).nick version $chr(125)
  57.       if ($me isop %tmp.clones) {
  58.         write $tp(clone.pop) ..-
  59.         write $tp(clone.pop) ..control
  60.         write $tp(clone.pop) ...kb $chr(123) fkb %tmp.clones $mask($ialchan(%k.clones,%tmp.clones,%j.clones),2) clone from %k.clones $chr(125)
  61.         write $tp(clone.pop) ...ban $chr(123) ban %tmp.clones $ialchan(%k.clones,%tmp.clones,%j.clones).nick 2 $chr(125)
  62.         write $tp(clone.pop) ...kick $chr(123) kick %tmp.clones $ialchan(%k.clones,%tmp.clones,%j.clones).nick clone from %k.clones $chr(125)
  63.         write $tp(clone.pop) ...-
  64.         write $tp(clone.pop) ...warn $chr(123) qnotice $ialchan(%k.clones,%tmp.clones,%j.clones).nick Your host ( $+ %k.clones $+ ) has been matched with another user on $b(%tmp.clones) $+ .  Please limit yourself to one user on this channel or face a possible kick/ban. $chr(125)
  65.       }
  66.       if (o isin $usermode) {
  67.         write $tp(clone.pop) ..IRCop
  68.         write $tp(clone.pop) ...kill
  69.         write $tp(clone.pop) ....msg kill $chr(123) .quote kill $ialchan(%k.clones,%tmp.clones,%j.clones).nick : $ $+ + $$ $+ ?="Enter kill message." $chr(125)
  70.         write $tp(clone.pop) ....clone kill $chr(123) .quote kill $ialchan(%k.clones,%tmp.clones,%j.clones).nick :clones $chr(125)
  71.         write $tp(clone.pop) ...kline
  72.         write $tp(clone.pop) ....kline *@*.domain $chr(123) .quote kline $remove($mask($ialchan(%k.clones,%tmp.clones,%j.clones),4),*!) $ $+ ?="Enter duration (cancel for perm)" : $ $+ + $$ $+ ?="Enter K-line reason." $chr(125)
  73.         write $tp(clone.pop) ....kline *@host.domain $chr(123) .quote kline $remove($mask($ialchan(%k.clones,%tmp.clones,%j.clones),2),*!) $ $+ ?="Enter duration (cancel for perm)" : $ $+ + $$ $+ ?="Enter K-line reason." $chr(125)
  74.         write $tp(clone.pop) ....kline *ident@host.domain $chr(123) .quote kline $remove($mask($ialchan(%k.clones,%tmp.clones,%j.clones),1),*!) $ $+ ?="Enter duration (cancel for perm)" : $ $+ + $$ $+ ?="Enter K-line reason." $chr(125)
  75.         write $tp(clone.pop) ....kline *ident@*.domain $chr(123) .quote kline $remove($mask($ialchan(%k.clones,%tmp.clones,%j.clones),3),*!) $ $+ ?="Enter duration (cancel for perm)" : $ $+ + $$ $+ ?="Enter K-line reason." $chr(125)
  76.       }
  77.       goto start3
  78.     }
  79.     goto start2
  80.   }
  81.   aline @Clones ' $+ $str(-,50) $+ '
  82. }
  83. chkhost {
  84.   if (($nc($1)) && ($1 !ischan)) {
  85.     set %spoofchk $nc($1)
  86.     .who $nc($1)
  87.   }
  88. }
  89. clientscan {
  90.   if ($1 != $null) set %pserver $1
  91.   else set %pserver $server
  92.   set %clientscan on
  93.   set %clientnum 0
  94.   .stats l %pserver
  95. }
  96. cstats {
  97.   set %cstats on
  98.   unset %nmawy %add
  99.   set %niops 0
  100.   set %naway 0
  101.   set %ncls 0
  102.   .who $iif($1,$1,#)
  103. }
  104. icmp {
  105.   iecho ICMP Scanner activated.
  106.   write -c $tp(temp.txt)
  107.   run -n trace.bat $tp(temp.txt) $ddename
  108. }
  109. ircops {
  110.   set %cn 0
  111.   set %lircops on
  112.   .who $iif($1,$1,#)
  113. }
  114. ll {
  115.   if ($exists($nd(svr))) {
  116.     if (%links < $ctime) {
  117.       set %linksr on
  118.       .quote links
  119.       set %links $pls($ctime,300)
  120.     }
  121.     else iecho Ignored /ll. Wait 5 minutes and try again.
  122.   }
  123.   else {
  124.     iecho No server list was found for $hc(%irc.network) $+ .
  125.     iecho Type /ml to create one.
  126.   }
  127. }
  128. ml {
  129.   if (%links < $ctime) {
  130.     write -c $nd(svr)
  131.     set %linkl on
  132.     .quote links
  133.     set %links $pls($ctime,300)
  134.   }
  135.   else iecho Ignored /ml. Wait 5 minutes and try again.
  136. }
  137. nickfind {
  138.   if ($1 == $null) {
  139.     iecho Syntax: /nickfind <IP/hostname>
  140.     return
  141.   }
  142.   if (($longip($1) isnum) && ($2 != 1)) {
  143.     set %nickfind on
  144.     .dns $1
  145.     return
  146.   }
  147.   set %tmp.nickfind *!*@ $+ $1
  148.   if ($ial(%tmp.nickfind,0) == 0) {
  149.     if ($window(@DNS)) {
  150.       echo @DNS á
  151.       if ($form(errors,nonicks)) echo @DNS %h $readini %formats errors nonicks
  152.       else echo @DNS %h No users found from $hc($1) $+ .
  153.     }
  154.     else {
  155.       if ($form(errors,nonicks)) iecho $readini %formats errors nonicks
  156.       else iecho No users found from $hc($1) $+ .
  157.     }
  158.   }
  159.   set %i.nickfind 0
  160.   :start
  161.   inc %i.nickfind
  162.   if ($ial(%tmp.nickfind,%i.nickfind)) {
  163.     unset %findchans
  164.     set %j.nickfind 0
  165.     :start2
  166.     inc %j.nickfind
  167.     if ($comchan($ial(%tmp.nickfind,%i.nickfind).nick,%j.nickfind)) {
  168.       set %findchans $addtok(%findchans,$comchan($ial(%tmp.nickfind,%i.nickfind).nick,%j.nickfind),44)
  169.       goto start2
  170.     }
  171.     if ($window(@DNS)) {
  172.       echo @DNS á
  173.       if ($form(echos,founduser)) echo @DNS %h $readini %formats echos founduser
  174.       else echo @DNS %h Found user $hc($ial(%tmp.nickfind,%i.nickfind).nick) $rbrk($ial(%tmp.nickfind,%i.nickfind).addr) in $hc(%findchans) $+ .
  175.     }
  176.     else {
  177.       if ($form(echos,founduser)) iecho $readini %formats echos founduser
  178.       else iecho Found user $hc($ial(%tmp.nickfind,%i.nickfind).nick) $rbrk($ial(%tmp.nickfind,%i.nickfind).addr) in $hc(%findchans) $+ .
  179.     }
  180.     goto start
  181.   }
  182. }
  183. scriptinfo dialog -m ircN.scriptinfo ircN.scriptinfo
  184. trace {
  185.   set %trcnm 0
  186.   if ($1 != $null) set %trcsvr $1
  187.   else set %trcsvr $server
  188.   trace %trcsvr
  189. }
  190. ufind {
  191.   set %i.ufind 0
  192.   set %tmp.ufind 0
  193.   :start
  194.   inc %i.ufind
  195.   if ($nick(#,%i.ufind) == $null) {
  196.     if (%tmp.ufind == 0) iecho No friends/bots were found on $hc(#) $+ .
  197.     else aline @UserFind ' $+ $str(-,40) $+ '
  198.   }
  199.   elseif ($usr($nick(#,%i.ufind))) {
  200.     inc %tmp.ufind
  201.     if (%tmp.ufind == 1) {
  202.       clear @UserFind
  203.       window -a @UserFind %uloc $tp(ufind.txt) FixedSys 9
  204.       write -c $tp(ufind.txt)
  205.       write -c $tp(ufind.txt)
  206.       write $tp(ufind.txt) exit $chr(123) set $chr(37) $+ uloc $chr(36) $+ swlc(@UserFind) $vl window -c @UserFind $chr(125)
  207.       write $tp(ufind.txt) -
  208.       aline @UserFind . $+ $str(-,40) $+ .
  209.       aline @UserFind $vl Users on $fix(29,$hc(#)) $vl
  210.       aline @UserFind $vl $+ $str(-,40) $+ $vl
  211.       aline @UserFind $vl $lfix(10,Nick) $lfix(13,Level) $lfix(15,$vl)
  212.     }
  213.     if ($usr($nick(#,%i.ufind))) {
  214.       write $tp(ufind.txt) $nick(#,%i.ufind)
  215.       write $tp(ufind.txt) .who $chr(123) who $nick(#,%i.ufind) $chr(125)
  216.       write $tp(ufind.txt) .ping $chr(123) ctcp $nick(#,%i.ufind) ping $chr(125)
  217.       write $tp(ufind.txt) .finger $chr(123) finger $nick(#,%i.ufind) $chr(125)
  218.       write $tp(ufind.txt) .whois $chr(123) whois $nick(#,%i.ufind) $chr(125)
  219.       write $tp(ufind.txt) .version $chr(123) ctcp $nick(#,%i.ufind) version $chr(125)
  220.       write $tp(ufind.txt) .-
  221.       write $tp(ufind.txt) .delete $chr(123) remuser $usr($nick(#,%i.ufind)) $chr(125)
  222.       if ($chkflag($usr($nick(#,%i.ufind)),*,b)) {
  223.         if ($chkflag($usr($nick(#,%i.ufind)),#,f)) aline @UserFind $vl $lfix(4,%tmp.ufind) $+ . $fix(12,$nick(#,%i.ufind)) $fix(19,protected bot) $vl
  224.         else aline @UserFind $vl $lfix(4,%tmp.ufind) $+ . $fix(12,$nick(#,%i.ufind)) $fix(19,bot) $vl
  225.       }
  226.       elseif ($chkflag($usr($nick(#,%i.ufind)),#,o)) {
  227.         if ($chkflag($usr($nick(#,%i.ufind)),#,f)) aline @UserFind $vl $lfix(4,%tmp.ufind) $+ . $fix(12,$nick(#,%i.ufind)) $fix(19,protected op) $vl
  228.         else aline @UserFind $vl $lfix(4,%tmp.ufind) $+ . $fix(12,$nick(#,%i.ufind)) $fix(19,op) $vl
  229.       }
  230.       elseif ($chkflag($usr($nick(#,%i.ufind)),#,v)) {
  231.         if ($chkflag($usr($nick(#,%i.ufind)),#,f)) aline @UserFind $vl $lfix(4,%tmp.ufind) $+ . $fix(12,$nick(#,%i.ufind)) $fix(19,protected voice) $vl
  232.         else aline @UserFind $vl $lfix(4,%tmp.ufind) $+ . $fix(12,$nick(#,%i.ufind)) $fix(19,voice) $vl
  233.       }
  234.       elseif ($chkflag($usr($nick(#,%i.ufind)),#,f)) aline @UserFind $vl $lfix(4,%tmp.ufind) $+ . $fix(12,$nick(#,%i.ufind)) $fix(19,protected) $vl
  235.       else aline @UserFind $vl $lfix(4,%tmp.ufind) $+ . $fix(12,$nick(#,%i.ufind)) $fix(19,user) $vl
  236.     }
  237.     else dec %tmp.ufind
  238.     goto start
  239.   }
  240.   else goto start
  241. }
  242.